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Error GOTO 4000 

By’^Mike Panciera 


Variable Base Renumberer 
For OS-65D Assembler 


Yoti*re using pdm or disk. All at 

CHice you see an error notice and an "OK". 
You've been bounced out of the program. 

Well, it isn't OK, but v^at can you do 
about it? 

Oie thing you can db is to put this 
little routine into all yout programs very 
early in the game. Once it's there, if you 
make an-error that would otherwise be fatal, 
the prt^rara will 00 TO Line 4000 — still 
under ^ntrol — and you can have it give 
you h^pful information, like "ALL RIGHT, 
KNlKKlMffiAD, IF YCXJ WANT ME TO TAKE THAT 
ENWW MAKE XT A NUMBER", and then go back 
to point ^ere the error was made and 
wait for a rtew input. 

The program vorks by replacing the 
subroutine that prints the "OK" prompt. You 
can rarove this routine and replace the "OK" 
when you're through by usir^ the pokes given 
at the end. 

The routine is given first in assembly 
larquage for clarity, then in a series of 
BASIC pokes for easy entry into a BASIC 
program (The BASIC is for a ROl-based 
machine. Make the appropriate changes for 
disk BASIC.) 


ODA 

#$A0 

; Line number (LO) 

STA 

17 

: (25 for disk) 

IDA 

#0F 

; lir^ number (HI) 

SHA 

18 

(26 for disk) 

JSR 

$A6D0 

(RM) $08BD (Disk) ; 


Execute GOTO 

JMP $A5C2 (ROM) $07B4 (Disk) ; 

Continue with program 
10000 FOR I = 1 TO 14: READ A : POKE 
I ■+ 545,A: NEXT 

10010 DATA 169,160,133,17,169,15,133,18,32 
10020 DATA 208,166,76,194,165 
10030 POKE 4,34: POKE 5,2:REM TRAP "OK" MSG 
10040 RETURN 

To restore the "OK" proinpt: 

POKE 4,195: POKE 5,168 


By James E. Kupperian, Jr. 

The CB-65D iraiirect file bolds tanta¬ 
lizing promise for the assenbly language 
programer: merge programs, reorder programs, 
use canned subroutines, etc. But alas, the 
renumber utility in the OSI assembler 
renuibers frcm a base of 10, making the 
indirect file all but useless for these 
purposes.' 

I have written a short program to 
renunber source files fron an arbitrary 
base. As the assembler was apparently 
compiled from a high level language, the 
task of integrating it into the assembler 
itself proved to be too formidable, so I 
apperried it to an unused cammand (J) in the 
extended monitor. 

To implement the prog ran: !CALL 
4200=09,1: Set offset with M3000 ccxmiand: Do 
A3 assanbly: 'SAVE 09,1=4200/5 (5" disks). 

To implement the J conmand: Enter EM: 
ICALL 4700=10,1: change jiinp location with 
@48B3 (CR) A3 (LF) 15 (CR): iSAVE 
10,1=4700/8 (5" disks). 

The coimand format is Jxxxx, v^ere xxxx 
is new base. This implementation requires 
that you exit the assembler, reenter the EM, 
do J conmand,and reenter the assembler. For 
those vbo wish, the D9 ccnroand in DOS could 
be used for ease of executing frcm the 
assonbler with a ! coranand. The choice of 
$15A3 was dictated by other programs that I 
have appended to the assembler, and could be 
lowered to the last instruction in your 
assembler. 

This program was written using this 
technique, and I have assenbled several 
disks of useful subroutines. I have learned 
one thing: be careful of your labels! 

continued on page 5 




Group Buy§ - Discounts Newsletter Back Issues 


The order for 5-1/4" disk motor 
controllers has rot yet been conpleted. If 
you're interested in one (see page 2 of the 
July tfewsletter), get your check in soon. 

We've confirmed the discount offer 
described on page 5 of the June Newsletter. 
If yDu want CSI merchandise and won't need a 
lot of haridholding to get it running, you 
may want to order from the former Peripheral 
Interfacing Equipment. 

Order frcsm Richard A, C^neau, M.D,, Box 
338, Dexter, MO 63841. Enclose a cashier's 
check, certified check, or money order for 
the current list price less 18% — and be 
sure to give your OS10 membership number, 
vhich you'll find on the left side of the 
top line of your address label. 


The Itewsletter started witti April 1979. The first few 
issues were short, but we tried to include some 
interesting, often useful routine or tip in Mrti one. 

Sane issues are out of print, and in order to pr^re a 
conpleta set, we must photooopy those. POr those up to 
January 19K) we cofy only material of continuing interest, 
and onit dated material such as meeting annoiaioenients. 

'Hie price of the bade issues inches up ^ more issues 
must be photooc^led, the padcage gets heavi^, and the 
mailing costs increase. If you’d like a set, we'll 
ass«ribie one and sand it to you fOT $8.00 plus postage. 

The set now weighs about 19 ounces. Fburth cla^ postage 
is from about $1.60 (near Washii^ton) to about $2.50 (Hfest 
Coast and Hawaii). 3e sure to give your membership nimber. 


Writing to OSIO 


The return address on your Newsletter is 
a one-way address. We use it only for 
mailing the Newsletters at the third-class 
rate. Please don't use it to conrounicate 
with CSIO; this leads to delays. 

QSIQ w or k is done by volunteers, most of 
vhem live far from the others. We now have 
a few more shoulders against the vheel, arri 
we could use nr>re; as we distribute the 
work, we'll revise the list below. Our 
Icaog-range plan is for the letter, or the 
order and the check, to go to the person 
vho will take immediate action chi it (and 
follow up if necessary) — the monbership 
chairman, for example — and for that 


8" disks, 65U and 65D: Themas M. Rowlett, 
11296 Windsor Ct., Ijamsville, MD 21754 

5-1/4” disks, C1P: Stewart C, Meyers, 
8502 Jefferscai St., Bethesda, MD 20034 

5-1/4" disks, C4P: Herbert Muraford, 

9608 Sun^t Dr., Rockville, MD 20850 

Cassette tapes, C1P: James E. Kuj^rian, 
Jr., 2702 Lyn Place, Bowie, MD 20715 

Cassette tapes, C4P: John Randall, 

850 Hungerford Drive, Rockville, MD 20850 

Articles, cemments, program listings, 
and letters for the Newsletter: 


person to send the checks to the treasurer, 
who will deposit than and will not need to 
take any further action on the 
transactions. 

The sidjjects car v^ic^i we get the mc^t - ' " 
m ail, and the people te uton mail ’Oir"^ioae 
subjects should be sent (at present) for 
best service, are listed below. 

Orders and checks (payable to OSIO) i©r 
dues, program exchange disks, and back 
issues of the Newsletter, and 
correspondence on other subjects listed 
below,, will get prompt attention if they go 
to: 


Wallace Kendall, 9002 Dunloggin M, 
Ellicott City, MD 21043. 

Applications and checks for membership 
and monbership renewal; change of 
address: Wallace Kendall (temporarily, 
pending appointment of a monbership 
chairman). 

Orders and checks for back issues: 

Wallace Kendall {tanporarily, pending 
ap^introent of a librarian to handle 
printed materials.) 

Orders and checks for group buy itans that 
have been announced in the Newsletter: 
Mary Lowery (temporarily, pending 
appointment of a Group Buy chairman). 
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OS-65D Notes 

MORE ON OTILITIES 

Last time I noted that one could 
conbine the 6 tracks of 'CKEATE', 
'DEELETTE', 'RENAME', and 'ZERO' into one 
program on 2 tracks. I haven't actually 
done that, however, 5#iat I have done is 
conbine two versions of 'CREATE' with 
'DELETE', 'RENAME', 'SECDIR', 'TRACE', a 
sort routine, and a portion of 'CHAISE' 
into a 4 track program that I call 
'UTIL'. This does just about everythir^ 
that the irdividual utilities do and quite 
a bit more including finding the anpty 
tracks for creating a file, placing the 
directory in alphabetical order v,hen new 
names are added, and a few more little 
itans. 

I have also oonbined 'BEXEC*' with a 
directory so that a directory is no 
lor^er needed because 'BEXEC*' cones up 
wi^ a numbered list of all the file names 
vrtiich can than be accessed just by typir^ 
the number. It also indicates the number 
of atpty tracks left on the disk. In 
addition, it places #6 buffer on top and 
^ts gie po inters for the irKiirect file. 

' I mentioned earlier I have also 

been cleaning up a progrOT that results 
in a Superdirectory of all your programs. 
It is now easy to use ard results in a 
list of all programs and the disks on 
which they are duplicated plus a list of 
the niJTiber of en^ty tracks on each disk. 

Lastly I have finished the program 
to illustrate the use of two buffers, 
insertion sorting, mei^e sortlr^, and 
various peeks and ^kes. In addition to 
its use as a learning tool, the program 
is useful for files containing large 
numbers of records. 

These programs together with 5 
tracks of instructions will have been 
given to Tom Rowlett to be placed on the 
OS65D3 exchange disk, by the time you 
read this. 

In last month's discussion of 
'CREATE', I omitted reference to the 
statement 'IF AL%(K) THEN PRINT' cal line 
20140. This is a logic statement that you 
may not have run across. 

OSI's BASIC allows various logic 
statements. in thase statenvents, 'O' 
starxis for FALSE; just about any number 
can be used for TRUE vhen inputting, but 
the system outputs '-1' for TRUE, 


The stataitent 'IF x' stands for 'if 
X IS TE?UE' (vhere X is TRUE if X is any 
number but zero). 

In brief then, the stauanent 'IF X' 
is equivalent to the statement 'IF XOO', 

DEIETING THE BUFFER 

If you have placed your buffers on 
top, you will want to remove the empty 
track frcm your old programs that were 
set up for buffers on the bottom. Just 
usir^ the indirect file, typing 'NEW' and 
bringing the pr<^ram back down from the 
indirect file will not work, because the 
'NEW' ccmnand only wipes out the space 
within BASIC's bounds, ccxisequently the 
material on the bottom still stays there. 
To get rid of the buffer space, you must 
call into the work area a program that 
does not have a buffer. 

Then type 'NEW' and bring your progran 
back from the indirect file. 

Someone asks whether there is a way 
to convert a data file into a program 
file. The answer is 'yes'. Set the 
pointers for the indirect file and device 
#5 to the same address. Data statenents 
written with line numbers can then be 
written into memory with device #5 and 
called back as program statements with 
control X. I have an example of this in 
the 'UTIL' program, and there is an even 
better example in the 'LISTER' program on 
the exchange disk. 

.&meone asks vrfiy poking a value into 
certain addresses doesn't affect the 
value in that address. 

Although there are 64K addresses 
accessible to the 6502, only some of them 
are re^/write memory cells. The rest may 
include Read Only Memories and ports 
(vhich as the name implies are gatewa^^ 
to scmething). CMly if you poke a value 
into a read/write memory cell can you 
expect that it will remain there. 

Another questioner asks why the 
routines involving PEEK(64512) or 
PEEK(64513) don't work on his machine. 

Unfortunately I neglected to point 
out that these addresses could be used as 
irdicated only if had a keyboard 

connected to the ACIA. A keytxjard can be 
a serial input, meaning that the bits to 
and from ke^txoard to computer are sent 
one at a time. In this case an ACIA is 
used to convert the serial stream of 8 
bits making up a byte into 8 bits in 

continued on page 4 
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Eratta — and Worse! 


OS-65D Notes 

continued from page 3 

parallel for use in t±ie cxxnputer busses. 
An ACIA resides at 64512 in your 
ccmputer, but it is not necessarily 
hooked to a keyboard. If you have a serial 
keyboard, then it is. If you have a 
polled keyboard, then it isn't. 

A polled keyboard connmunicates with 
the conputer one byte at a time, all 8 
bits traveling in parallel. 

In the serial systen, ASCII 
characters are sent frcM the keyboard to 
64512 one bit at a time. In a polled 
system, the ccoputer polls the keys one 
after the other to see if one is being 
pushed. One byte is associated with 8 
columns and another byte with 8 rows, 
together resulting in an 8 by 8 matrix of 
64 positions identifying up to 64 kej^ on 
the keybo^d. The particular key pushed 
is identified by its position in the 
matrix rather than by an ASCII character. 
This makes it possible for more than one 
key to be detected simultaneously in the 
scanning process, a fact vhich makes the 
polled keyboard, and the polled concept 
-in general, ^very—use ful '^ e n -information-^ 
is desired essentially simultaneously from 
several sources. 

Any one or more rows can be 
designated by poking the row bit 

designation into 57088. This disables 
gates of all but those particular bits 
(rows). Only enabled rows will be sending 
signals to address 57088, Bits from any 
specific column{s) can be designated by 
looking for them with PEEK(57088). The 
rightmost column is 'O', the next is 
etc. and are identified in terms of 2 to 
the desired power, e.g., 1, 2, 4, etc. 

reading from the right. 

PEEK(57088) properly used can be 
substituted for PEEK(64513) for all the 
cases we have considered and a sample is 
given in the exchange disk. 

By Joe Kirshner 


Surely every user of the OS-65U money 
mode knew, as soon as he saw our report cxi 
Radford Compton's fix in the June 
Newsletter, that the PRINr%R in the program 
should have been PRINTSR, and the second 
ADDRESS called for was 31E2, as the next 
line showed. How those slipped by your 
usually fairly alert editor passeth 
understanding, 

Vtiat's a greater sin for an editor than 
an uncaught typo? Two uncaught typos? No, 
two omitted bylines, and we managed to do it- 
in the May and July issues. Tbe C1P Typo- r 
Tyro article in tlie May issue was by Stewart 
C, Ifeyers, who also did the Flash Card 
prograri in the June issue. It seems to Us 
that small conputers offer tremendous 
opportunities in motivation, instruction, 
and drill for young people (and creative 
play for all ages), and we'd like to putdish 
more of this kind of program. ■ 

Ttie article on & I Don' t Care in the duly 
issue was written by Rick %ers, has 
been doing a lot of work with 65U and OS- 



Membership Information 

OSIO duos are $15 a year. Oi/erseas rrteiiDers who 
the Ma^etter by aioiail pay an additional $15, a 
total of 530 O.S. (It mmm likely, oecause of recent 
ureases in pc^tal fees, that we shall hmm to incr^se 
all rates* aenew ncwi) 

If you are a rrvanoer, your inetitership nmiber and tbe 
■jate to ^ich your dues are paid are abssve your name 

on the uiailing wetdi your label, and renen your 

inennbership praiptly before it expires 1 ^ do not have the 

r^ourees to tmiX rer^wal -iiid reminder notice* 

If Offay the name and address appear on the label, this 
is a sample copy. We invite to become a 'nerrvber, take 
part in our activities, and enjoy the benefits of our 
newsletter, Prograii Exchange, chapter nee-tings, seminars, 
and occ^icmal disoourit offers awi groi^ pjrdiases. Just 
s^id a check in the proper aiTioant to our Treasurer, whose 
imm and address are given below. 
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Renumber Program For OSI Assembler 

continued from page 1 


--- 

11®» RENUMBER PROGRAM FOR OSI ASSEMBLER 

12 ® -- 

130i PROGRAM TO RENUMBER ASSEMBLER SOURCE 

1^0? PROGRAMS TO ANY BASE WITH INCREMENTS 

lb0» OF 10, ENTRY CAN BE IMPLEMENTED BY 

160; USING UNUSED COMMANDS IN EXTENDED 

lT0i MONITOR, I LIKE 'Jxxxx', xxxx=BASE, 

180! ?18B3 And flBBW ARE JMP TBLE. ADD. 

190; THE UNUSED-DOS D9 COMMAND IS ANOTHER, 

200! i,e, R# xxxx, CHECK FOR AS/EM IN MEMORY 

210}--- 

220 *^I15A3 ;THIS ADDRESS USED FOR JUMP TABLE, 

230 ;CAN BE ADDED TO ASSEMBLER 

2^h0 ; anywhere aboue existing code, 

250 TEMPL=:fA0 

260 TEMPH-$A1 

270 RE8AL0=$A2 

260 REBAHI=$A3 

290 BUFBYT=$2CEA 


- 

310 ENTRY 

JSR 

PARSE2 

320 

BNE 

RENUM 

■330 

RTS 

NEEDS BASE OTHER THAN 2ER0, 

3H0; 



350 RENUM 

LDA 

^3279 SET START OF PROGRAM, 

360 

STA 

REBALO 

370 

CMP 

$327B 

380 

BNE 

RENUM1 

390 

LDA 

«327A 


CMP 

$327C 

4iQ> 

BNE 

RENUM1 

H20 

RTS 

DO NOT RENUM, A NON PROGRAM 

A30; 



HW0 RENUM1 

LDA 

$327A 

450 

STA 

REBAHI 

460 INDEX3 

LDY 

»0 ENTER THE NEW LINE NUMBER, 

470 

LDA 

TEMPL 

480 

STA 

(REBALO)*Y 

490 

INY 


500 

LDA 

TEMPH 

510 

STA 

(REBALO)^Y 

520; 


CHECK FOR EOL 

530 INDEX2 

INY 


540 

BMI 

ADDl something WRONG GEf OUT. 

550 

LDA 

(REBALO)>Y 

560 

CMP 

#$0D 

570 

BNE 

INDEX2 

5B0; 


FOUND EOL 

590 

INY 



continued on page 6 
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600 

610 

620 

630 

650 

660 ADD0 
670 
680 

690;- 

700; 

710;- 

720 ADD10 

730 

7^0 

750 

760 

770 

7B0 ADDl 
790 ;- 


TVA ADJUST FOR NEXT LINE ADDRESS* 

CLC 

ADC REBALO 
STA REBALO 
BCC ADD0 
INC REBAHI 
JSR TEST 
JSR ADD10 

JMP INDEX3 RENUMBER LINE. DO NEXT LINE. 


ADDS 10 TO CURRENT LINE NUMBER. 


LDA TEMPL 
CLC 

ADC tt$0A 
STA TEMPu 
BCC ADD! 
INC TEMPH 
RTS 


800; 

810; 

820;- 

830 TEST 

850 

-“ 

870 

880 

890 

900 

910 

920;- 

930 ; 

9-^0; 

950; 

960; 

970 
980 
990 
1000 
1010 
1020 ; 
i 030 
10^0 
1050 
1060 
1 070 
1080. 

1090 
1100 
1110 
1120 
1130 
1140 


TEST FOR END OF PROGRAAP^. 

RETURNS TO CALLING PRGM. IF EOF*. 


LDA REBAlO 
CMP $327S 
BNE ADDl 

CMP f327C 
BNE ADD! 
PLA 
PLA 
RTS 


GETS ENTRY FROM DOS BUFFER.* 

TERMINATES ON NON NUMBER. CONUERTS TO BINARY IN 
TEMPL AND TEMPH, 2 FLAG SET ON UALID ENTRY. 

PARSE2 LDA *00 

STA TEMPL 
STA TEMPH 

PARSEl JSR BUFBYT GET BYTE FROM DOS BUFFER. 

CMP *$20 

SKIP SPACES 
BEQ PARSEl 
SEC 

SBC «$30 
CMP *$0A 
ecs NOTNUn 

FIRST NON NUMBER 
JSR BCDBIN 
JMP PARSE! 

NOTNUM LDY «$00 
CPY TEMPL 
BNE VALID 
CPY TEMPH 
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1150 VALID RTS 

1160}- 

il70;CONUERTS BCD IN ACC TO BINARY IN TEMPL AND TEMPh, 
1180} REPEATED CALLS WITHOUT CLEARING TENPL AND TEm 
1190}WILL DO UP TO 5 DIGITS, CLEAR REG TO START, 

1200 }- 


1210 

BCDBIN 

ASL 

TEMP^ 

1220 


ROL 

TEMPH 

1230 


PHA 


12^0 


LDA 

TEMPH 

1250 


PHA 


1260 


LDA 

TEMPL 

1270 


ASL 

TEMPL 

1280 


ROL 

TEMPH 

1290 


ASL 

TEMPL 

1300 


ROL 

TEMPH 

1310 


ADC 

TEMPL 

13210 


STA 

TEMPL 

1330 


PLA 


13P0 


ADC 

TEMPH 

1350 


STA 

TEMPH 

1360 


PLA 


1370 


ADC 

TEMPi_ 

1380 


STA 

TEMPL 

1390 


BCC 

XBCDBI 

1^00 


INC 

TEMPH 

1410 

XBCDBI 

RTS 



1 .^ 20 } 

t'430T- UAMES EKUPPERI AN copyright 31 MAY 1991 


20 }RO!JTINE TO TOGGLE F^AG THAT RESETS ASSEMBLER 

30 }LABEL TABLE BEFORE AN ASSEMBLY, 

^0 }ALSO MOVES POINTER TO BASE OF EXISTING 

50 }LABEL TABLE. 

60 }USE UNUSED COMMAND If\ OS I EM TO IMPLEMENT 

70 }I LIKE Z COMMAND, JUMP TABLE AT $18D3,D,^ 

80 }-:---- 

90 «=fl586 CLEAR AREA ABOVE ASSEMBLER 

100 ;--- 


1 10 
12(£>: 
130 ; 
1 

150 
160 
170 
1B0 
190 
200 
2 10 
220 




LDA #f0A 
$0855 





^;:CLR'FLG 

la 

STA l 

LDA $2FB^ 
STA $12FB 
RTS 


LABEL CLEAR FLAG 
Cl-EAR flag SE"? 
yes 

.TOGGLE Flag 



230} JAMES E, KUPPERIAN 5/30/Bl 


0: TRACK(S) 
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Meetings 

group rrieets on the first Tuesday of each 
month at 7:30 p.m., at the ifeLter Johnson High School, 
6400 Rock Spring Drive, Bodcville, f®. 

On August 4 Paul Rainey, of Villa Park, Illinois, will 
explain sonve advanced .methods with (^€9Q, including 
changes in the locations of sore impcrtant sections of 
oode to ijTiprove performance, uses of and scire of 

the advantages of the use of color displays* Attend this 
meeting if you possibly can- In (mm you can't, m 
promise ho print a r^^ort on it later- 

OSI gi?wj^ meet at Granamity Oc»Hputers, 2704 N. 
Pershing Drive, ArlirK^ton, VA, to discuss: 

Second Tuesday: Cassette-basad systeis, 8ASIC-inr-W3Hr 
hardware* 

Hiird Tuesday: CB-61D, hare ays tans, polled keyboards, 

Etiurth Tuerfay: IB-4SJ, ^rial terminals, 8" flc^py and 
hard disks, business applications. 


OSIO 

M A T E I X 
6845 Elm Street, Suite lOf 

McLean, Virginia ^101 


Program Exchange 

CXir exchange disks do not contain the operating systsas 
or other proprietary programs; add your own systen to 
timaf or copy the programs you want to other disks. 

Sere3 in your own programs vfith OTOugh postage to return 
the material to you, and if program is accepted for 
the Exchange, we *11 add the other programs in the Exctoige 
to your disk or cassette before we return it. 

Friroarily for the benefit of new TLanbers %4io do not yet 
have programs to exchange, we will provide a library disk 
for S7-50 plus postage, or a cassette for $2.50 plus 
pestle- In the O.S*, first-class postage Cor a disk or a 
cassette is about 51,80; overseas postal rates have 
recently be^ steeply increased. They are now about $2,50 
for oi^ 3" disk by air to central M^erica, South ^nerioa, 
or Europe, and about $3 by air to the Pacific Ocean 
islands and Asia. Eacti additional disk or cassette; adds 
about ,50 ETore, 

In ordering a disk, be sure to «hetl»r 650 ■'pi 631, 
and give your irepbership miifetr, 
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